perm filename MUSIC.TEX[TEX,DEK] blob
sn#721618 filedate 1983-08-13 generic text, type T, neo UTF8
% Format for concert programs (an example in Appendix E)
\font\twelverm=amr10 at 12pt
\font\twelvebf=ambx10 at 12pt
\font\twelveit=amti10 at 12pt
\font\twelvesl=amsl10 at 12pt
\font\twelvemus=ami10 at 12pt
\font\eightrm=amr8
\font\eightbf=ambx8
\font\eightit=amti8
\font\eightsl=amsl8
\font\eightmus=ami8
\def\bigtype{\let\rm=\twelverm \let\bf=\twelvebf \let\it=\twelveit
\let\sl=\twelvesl \let\mus=\twelvemus \baselineskip=14pt minus .5pt \rm}
\def\medtype{\let\rm=\tenrm \let\bf=\tenbf \let\it=\tenit
\let\sl=\tensl \let\mus=\teni \baselineskip=12pt minus .5pt \rm}
\def\smalltype{\let\rm=\eightrm \let\bf=\eightbf \let\it=\eightit
\let\sl=\eightsl \let\mus=\eightmus \baselineskip=9.5pt minus .5pt \rm}
\def\flat{\raise.2ex\hbox{\mus\char"5B}}
\def\sharp{\raise.4ex\hbox{\mus\char"5D}}
\let\,=\thinspace
\def\(#1){{\rm(}#1\/{\rm)}}
\hsize=4in
\nopagenumbers
\bigtype
\def\composition#1{\halign{\bf\quad##\hfil\cr
\kern-1em#1\crcr}} % use \cr's if more than one line
\def\composer#1{\rightline{\bf#1}}
\def\movements#1{\halign{\quad\it##\hfil&&\qquad\it##\hfil\cr#1\crcr}}
\def\soloists#1{\centerline{\bf\vbox{\halign{##\hfil\cr#1\crcr}}}}
\def\tsaologo{\vbox{\bigtype\bf
\line{\hrulefill}
\kern-.5\baselineskip
\line{\hrulefill\phantom{ THE ST. ANFORD ORCHESTRA }\hrulefill}
\kern-.5\baselineskip
\line{\hrulefill\hbox{ THE ST. ANFORD ORCHESTRA }\hrulefill}
\kern-.5\baselineskip
\line{\hrulefill\phantom{ R. J. Drofnats, Conductor }\hrulefill}
\kern-.5\baselineskip
\line{\hrulefill\hbox{ R. J. Drofnats, Conductor }\hrulefill}
}}